home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / Spline0.asc < prev    next >
Text File  |  1980-03-12  |  1KB  |  63 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. Screen Open 0,320,256,4,LORES
  12. Flash Off : Curs Off : Hide : Cls 0
  13. Double Buffer : Autoback 0
  14. X0=Rnd(250)+50
  15. Y0=Rnd(150)+50
  16. X1=Rnd(250)+50
  17. Y1=Rnd(150)+50
  18. X2=Rnd(250)+50
  19. Y2=Rnd(150)+50
  20. X3=Rnd(250)+50
  21. Y3=Rnd(150)+50
  22. X4=Rnd(250)+50
  23. Y4=Rnd(150)+50
  24. AX=2
  25. AY=3
  26. BX=1
  27. BY=2
  28. CX=4
  29. CY=2
  30. DX=1
  31. DY=2
  32. EX=6
  33. EY=4
  34. Ink 2
  35. While Mouse Key<>2
  36.    If X0>=300 or X0<=50 Then AX=-AX
  37.    X0=X0+AX
  38.    If Y0>=200 or Y0<=50 Then AY=-AY
  39.    Y0=Y0+AY
  40.    If X1>=300 or X1<=50 Then BX=-BX
  41.    X1=X1+BX
  42.    If Y1>=200 or Y1<=50 Then BY=-BY
  43.    Y1=Y1+BY
  44.    If X2>=300 or X2<=50 Then CX=-CX
  45.    X2=X2+CX
  46.    If Y2>=200 or Y2<=50 Then CY=-CY
  47.    Y2=Y2+CY
  48.    If X3>=300 or X3<=50 Then DX=-DX
  49.    X3=X3+DX
  50.    If Y3>=310 or Y3<=50 Then DY=-DY
  51.    Y3=Y3+DY
  52.    If X4>=300 or X4<=50 Then EX=-EX
  53.    X4=X4+EX
  54.    If Y4>=310 or Y4<=50 Then EY=-EY
  55.    Y4=Y4+EY
  56.    Wb Spline X0,Y0 To X1,Y1 To X2,Y2,12
  57.    Wb Spline X0,Y0 To X3,Y3 To X2,Y2,12
  58.    Wb Spline X0,Y0 To X4,Y4 To X2,Y2,12
  59.    Screen Swap 
  60.    Wait Vbl 
  61.    Cls 0
  62. Wend 
  63.